home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / exitFrameScripts_4.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  744 b   |  28 lines
  1. on exitFrame me
  2.   global gUserDataMan, gIsoEngineTracker, gFrameToGoTo, gFrameTracker, gNavigatingFromLoadIn
  3.   initIsoEngine_BPSubdivision()
  4.   if not voidp(gFrameToGoTo) then
  5.     go(gFrameToGoTo)
  6.     gFrameToGoTo = VOID
  7.     exit
  8.   end if
  9.   if gNavigatingFromLoadIn = 1 then
  10.     gNavigatingFromLoadIn = VOID
  11.     placeToGoTo = getSavePlace(gUserDataMan)
  12.     if not count(placeToGoTo) then
  13.       go("floorPlan_init")
  14.       exit
  15.     end if
  16.     if listp(placeToGoTo) then
  17.       if placeToGoTo[#movie] = stripDotSuffix(whereAreWe(gFrameTracker)[#curMovie]) then
  18.         theFrameLabel = placeToGoTo[#frameLabel]
  19.         go(theFrameLabel)
  20.       else
  21.         go("floorPlan_init")
  22.       end if
  23.     else
  24.       go("floorPlan_init")
  25.     end if
  26.   end if
  27. end
  28.